home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / e / capus2.lha / capus2 / UserStartup / Sources / PModules.Lha / PModules / epp / skipWhite.e < prev    next >
Encoding:
Text File  |  1994-03-22  |  814 b   |  24 lines
  1. OPT TURBO
  2.  
  3. PROC skipWhite (theString,  /* PTR TO STRING */
  4.                 startPos)   /* Char index into theString, passed by value */
  5.   DEF length
  6.  
  7.   /* Skips SPACE, TAB, LF, CR.  Returns endPos so that                    */
  8.   /* MidStr (someString, theString, startPos, (endPos - startPos)) can be */
  9.   /* used in the calling program.                                         */
  10.   /* Return of -1 indicates access beyond end of string.                  */
  11.  
  12.   length := StrLen (theString)
  13.   IF startPos >= length THEN RETURN startPos
  14.  
  15.   WHILE (startPos < length) AND
  16.         ((theString [startPos] = " ") OR
  17.          (theString [startPos] = 9) OR   /* TAB */
  18.          (theString [startPos] = 10) OR  /* LF */
  19.          (theString [startPos] = 13))    /* CR */ DO INC startPos
  20.  
  21. ENDPROC  startPos
  22.   /* skipWhite */
  23.  
  24.